home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
PASCAL
/
1463.ZIP
/
DRAW-2D.ARC
/
LEV5OPT.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1986-12-03
|
2KB
|
68 lines
PROCEDURE LEV5OPT;
VAR
MSG:SCRLINE;
KODE:INTEGER;
BEGIN
CASE OPTION OF
0: IF OBJPTR <= MAXSIZE THEN DRAWOBJ ELSE RING2;
1: BEGIN (* BELL *)
IF (BUTTON1) OR (BUTTON2) THEN
BEGIN
IF BELLCODE = 7 THEN BELLCODE := 0 ELSE BELLCODE := 7;
STATUS1;
END;
END;
2: BEGIN (* CONT-LIN *)
IF (BUTTON1) OR (BUTTON2) THEN
BEGIN
IF CLIN THEN CLIN := FALSE ELSE CLIN := TRUE;
STATUS2;
END;
END;
3: BEGIN (* COLOR *)
IF (BUTTON1) OR (BUTTON2) THEN
BEGIN
MSG := 'Enter Color (0-15) <7> :';
HRCOLOR := ASKINT(24,2,MSG,0,15,7);
HIRESCOLOR(HRCOLOR); (* TURBO-PASCAL PROC *)
M1 := 2; (* HIDE MOUSE *)
MOUSE(M1,M2,M3,M4);
REDRAW;
M1 := 1; (* SHOW MOUSE *)
MOUSE(M1,M2,M3,M4);
END;
END;
4: BEGIN (* CIRC-SEG *)
IF (BUTTON1) OR (BUTTON2) THEN
BEGIN
MSG := 'Enter Number of Line Segments for Circle (12-360) <60> :';
NPOLY := ASKINT(24,2,MSG,12,360,60);
M1 := 2; (* HIDE MOUSE *)
MOUSE(M1,M2,M3,M4);
REDRAW;
M1 := 1; (* SHOW MOUSE *)
MOUSE(M1,M2,M3,M4);
END;
END;
5: BEGIN (* WORLD SIZE *)
IF (BUTTON1) OR (BUTTON2) THEN
BEGIN
MSG := 'Enter Size of World in feet (1-10000) <60> :';
XWORLD := ASKREAL(24,2,MSG,1.0,10000.0,60.0);
GRWORLD(0.0,0.0,XWORLD,XWORLD*ASPECT); (* WORLD CO-ORD *)
M1 := 2; (* HIDE MOUSE *)
MOUSE(M1,M2,M3,M4);
REDRAW;
M1 := 1; (* SHOW MOUSE *)
MOUSE(M1,M2,M3,M4);
END;
END;
6: BEGIN END;
7: BEGIN END;
8: IF (BUTTON1) OR (BUTTON2) THEN
BEGIN
LEV := 1;
MENU(LEV);
END;
END; (*CASE*)
END;